home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 30 / Amiga Format AFCD30 (Sep 1998, Issue 114).iso / -screenplay- / otherstuff / f1gp-ed / install / install_f1gp-ed < prev   
Text File  |  1998-06-29  |  32KB  |  1,428 lines
  1. ; F1GP-Ed Install Script - Copyright © 1994-1998 Oliver Roberts
  2. ;
  3. ; $VER: Install_F1GP-Ed 4.27 (2.6.98)
  4. ;
  5. ; - German translation by Dirk Kocherscheidt
  6. ; - French translation by Daniel Grenson
  7.  
  8. ;****************************************************************************
  9. ; Distribution Parameters
  10.  
  11. (set #frenchdocexists 0)
  12.  
  13. ;****************************************************************************
  14. ; English strings
  15. ;
  16. (set #str-installtype
  17.     "Choose installation:"
  18. )
  19.  
  20. (set #str-hd
  21.     "Hard disk installation"
  22. )
  23.  
  24. (set #str-floppy
  25.     "Floppy disk installation"
  26. )
  27.  
  28. (set #str-help-installtype (cat
  29.     "F1GP-Ed is best installed to a hard drive.  If you don't have "
  30.     "one, then select floppy disk and this installer will install "
  31.     "F1GP-Ed to floppy disk instead.")
  32. )
  33.  
  34. (set #str-hdconfirm (cat
  35.     "Make sure you have booted from your hard drive, before "
  36.     "continuing with this installation!\n\nDo you want to continue?")
  37. )
  38.  
  39. (set #str-floppyconfirm (cat
  40.     "Make sure you have a blank formatted disk ready.  Refer to "
  41.     "the Workbench manual if you are unsure how to format a disk.\n\n"
  42.     "Do you want to continue?")
  43. )
  44.  
  45. (set #str-diskwarn (cat
  46.     "IMPORTANT: If you are running this installer off a floppy disk, "
  47.     "please make sure the disk is write-protected before proceeding.\n\n"
  48.     "Please be aware that a full installation won't fit on a single DD "
  49.     "floppy disk, so it's best to only choose one language for the "
  50.     "documentation, and only the relevant locale catalog.")
  51. )
  52.  
  53. (set #str-diskinsertnew
  54.     "Please insert a blank formatted disk in drive DF%ld:"
  55. )
  56.  
  57. (set #str-diskremove
  58.     "You should now remove this disk and mark it as the %s disk."
  59. )
  60.  
  61. (set #str-diskrename1
  62.     "main F1GP-Ed"
  63. )
  64.  
  65. (set #str-diskanydrive (cat
  66.     "From now on you may insert this disk in any drive when requested "
  67.     "(i.e. not just the internal drive).")
  68. )
  69.  
  70. (set #str-diskinsert
  71.     "Please insert the %s disk in any drive"
  72. )
  73.  
  74. (set #str-copy
  75.     "Copying files to %s"
  76. )
  77.  
  78. (set #str-tmpcopy
  79.     "Copying files to temporary directory"
  80. )
  81.  
  82. (set #str-tmpclean
  83.     "Cleaning temporary directory"
  84. )
  85.  
  86. (set #str-hdwhere
  87.     "Select where F1GP-Ed should be installed (a drawer called \"F1GP-Ed\" will be created)"
  88. )
  89.  
  90. (set #str-fileexists (cat
  91.     "Could not create the \"F1GP-Ed\" drawer - make sure there are "
  92.     "no files called \"F1GP-Ed\" in the destination you selected.\n\n\n"
  93.     "Installation Failed!")
  94. )
  95.  
  96. (set #str-drawerexists (cat
  97.     "The F1GP-Ed drawer already exists.  It will be renamed "
  98.     "to \"F1GP-Ed_OLD\" if you want to keep any of the files "
  99.     "in it, otherwise all files will be deleted/replaced.")
  100. )
  101.  
  102. (set #str-replacedrawer
  103.     "Replace drawer"
  104. )
  105.  
  106. (set #str-renamedrawer
  107.     "Rename drawer"
  108. )
  109.  
  110. (set #str-extract
  111.     "Unpacking files - this may take a while..."
  112. )
  113.  
  114. (set #str-whichdocs
  115.     "Install documentation for which languages?"
  116. )
  117.  
  118. (set #str-helplanguage
  119.     "Which language should be used for on-line help?"
  120. )
  121.  
  122. (set #str-help-helplanguage (cat
  123.     "You should select your preferred language from the list so that "
  124.     "F1GP-Ed knows which version of the documentation to use for "
  125.     "the on-line help feature.  This is done by modifying the "
  126.     "HELPFILE tooltype in the F1GP-Ed program icon.")
  127. )
  128.  
  129. (set #str-whichcatalogs
  130.     "Install which catalogs? (english is built-in)"
  131. )
  132.  
  133. (set #str-help-whichcatalogs (cat
  134.     "If you have Workbench 2.1 or higher, F1GP-Ed will be able to "
  135.     "make use of locale catalogs.  This means that the strings in "
  136.     "F1GP-Ed itself can be in a different language.\n\n"
  137.     "Selected catalogs will be installed in the F1GP-Ed drawer.")
  138. )
  139.  
  140. (set #str-confirmoptional
  141.     "Please select which of these you'd like to install"
  142. )
  143.  
  144. (set #str-seasondata
  145.     "%s season data"
  146. )
  147.  
  148. (set #str-soundfiles
  149.     "Replacement sound samples (%s drawer)"
  150. )
  151.  
  152. (set #str-gfxfiles
  153.     "Replacement cockpit designs (%s drawer)"
  154. )
  155.  
  156. (set #str-extrafiles
  157.     "Miscellaneous F1GP stuff (%s drawer)"
  158. )
  159.  
  160. (set #str-update
  161.     "Installing newer version of %s"
  162. )
  163.  
  164. (set #str-exe
  165.     "F1GP-Ed executable"
  166. )
  167.  
  168. (set #str-iconfix
  169.     "Setting icon tools and tooltypes"
  170. )
  171.  
  172. (set #str-floppyextras
  173.     "Copying extra files required for autobooting disk"
  174. )
  175.  
  176. (set #str-theend (cat
  177.     "\nEnjoy using F1GP-Ed ;-)\n\n"
  178.     "The latest version of F1GP-Ed is always available from the "
  179.     "F1GP-Ed Web Page - %s\n\n%s\n")
  180. )
  181.  
  182. (set #str-tmpstorage (cat
  183.     "Select an area to use as temporary storage.  A drawer called \"%s\" "
  184.     "will be created there, and will be deleted when installation has "
  185.     "been completed.  The default is usually sufficient.")
  186. )
  187.  
  188. (set #str-prepdisk
  189.     "Preparing floppy disk"
  190. )
  191.  
  192. (set #str-bootfloppyend (cat
  193.     "F1GP-Ed disk created.  You should now be able to boot directly "
  194.     "from the disk after this installer has exited.")
  195. )
  196.  
  197. (set #str-intdrive
  198.     "internal drive"
  199. )
  200.  
  201. (set #str-selectfloppydrive (cat
  202.     "Select a valid floppy disk drive - this will be the drive that "
  203.     "will be used to initialize your blank disk.  Unless your internal "
  204.         "drive is broken, it's probably best to go along with the default...")
  205. )
  206.  
  207. ;****************************************************************************
  208. ; German strings
  209. ;
  210. (if (= @language "deutsch") (
  211.     (set #str-installtype
  212.         "Wählen Sie die Art der Installation:"
  213.     )
  214.  
  215.     (set #str-hd
  216.         "Festplatten Installation"
  217.     )
  218.  
  219.     (set #str-floppy
  220.         "Floppy Disk Installation"
  221.     )
  222.  
  223.     (set #str-help-installtype (cat
  224.         "F1GP-Ed wird am besten auf die Festplatte installiert. Wenn "
  225.         "Sie keine haben, dann wählen Sie Floppy Disk und der Installer "
  226.         "wird F1GP-Ed statt dessen auf Diskette installieren.")
  227.     )
  228.  
  229.     (set #str-hdconfirm (cat
  230.         "Versichern Sie sich, daß Sie von Ihrer Festplatte gebootet haben, "
  231.         "bevor Sie mit dieser Installation fortfahren!\n\nMöchten Sie fortfahren?")
  232.     )
  233.  
  234.     (set #str-floppyconfirm (cat
  235.         "Denken Sie daran, eine formatierte Leerdiskette bereit zu haben. "
  236.         "Schlagen Sie in Ihrem Workbench Handbuch nach, wenn Sie nicht genau "
  237.         "wissen wie man eine Diskette formatiert.\n\n"
  238.         "Möchten Sie fortfahren?")
  239.     )
  240.  
  241.     (set #str-diskwarn (cat
  242.         "WICHTIG: Wenn Sie diesen Installer von Diskette laufen lassen, "
  243.         "dann überzeugen Sie sich, daß die Diskette schreibgeschützt ist, "
  244.         "bevor Sie fortfahren.\n\n Bitte denken Sie daran, daß die komplette "
  245.         "Installation nicht auf eine einzige DD Diskette paßt; es ist also am "
  246.         "besten, wenn Sie nur eine Sprache für die Dokumentation und nur den "
  247.         "für Sie relevanten Locale Catalog wählen.")
  248.     )
  249.  
  250.     (set #str-diskinsertnew
  251.         "Bitte legen Sie eine formatierte Leerdiskette in Laufwerk DF%ld: ein"
  252.     )
  253.  
  254.     (set #str-diskremove
  255.         "Sie sollten diese Diskette jetzt entfernen und als %s Diskette beschriften."
  256.     )
  257.  
  258.     (set #str-diskrename1
  259.         "F1GP-Ed Haupt -"
  260.     )
  261.  
  262.     (set #str-diskanydrive (cat
  263.         "Von jetzt an können Sie die Diskette in jedes beliebige Laufwerk "
  264.         "einlegen (d.h. nicht nur ins interne Laufwerk).")
  265.     )
  266.  
  267.     (set #str-diskinsert
  268.         "Bitte legen Sie die %s Diskette in ein beliebiges Laufwerk"
  269.     )
  270.  
  271.     (set #str-copy
  272.         "Kopiere Dateien nach %s"
  273.     )
  274.  
  275.     (set #str-tmpcopy
  276.         "Kopiere temporär benötigte Dateien in temporäres Verzeichnis"
  277.     )
  278.  
  279.     (set #str-tmpclean
  280.         "Säubere temporäres Verzeichnis"
  281.     )
  282.  
  283.     (set #str-hdwhere (cat
  284.         "Wählen Sie, wo F1GP-Ed installiert werden soll (ein Verzeichnis namens "
  285.         "\"F1GP-Ed\" wird dort angelegt)")
  286.     )
  287.  
  288.     (set #str-fileexists (cat
  289.         "Konnte das Verzeichnis \"F1GP-Ed\" nicht anlegen - überzeugen Sie sich, daß "
  290.         "keine Dateien namens \"F1GP-Ed\" in Ihrem gewählten Ziel sind.\n\n\n"
  291.         "Installation fehlgeschlagen!")
  292.     )
  293.  
  294.     (set #str-drawerexists (cat
  295.         "Das F1GP-Ed Verzeichnis existiert bereits. Es wird in \"F1GP-Ed_OLD\" "
  296.         "umbenannt, wenn Sie irgendwelche Dateien daraus behalten wollen, "
  297.         "anderenfalls werden alle Dateien gelöscht/ersetzt.")
  298.     )
  299.  
  300.     (set #str-replacedrawer
  301.         "Ersetze Verzeichnis"
  302.     )
  303.  
  304.     (set #str-renamedrawer
  305.         "Benenne Verzeichnis um"
  306.     )
  307.  
  308.     (set #str-extract
  309.         "Entpacke Dateien - das kann eine Weile dauern..."
  310.     )
  311.  
  312.     (set #str-whichdocs
  313.         "In welchen Sprachen soll die Dokumentation installiert werden?"
  314.     )
  315.  
  316.     (set #str-helplanguage
  317.         "Welche Sprache soll für die on-line Hilfe benutzt werden?"
  318.     )
  319.  
  320.     (set #str-help-helplanguage (cat
  321.         "Sie sollten aus dieser Liste Ihre bevorzugte Sprache auswählen, so daß "
  322.         "F1GP-Ed weiß, welche Version der Dokumentation für das on-line Hilfe "
  323.         "Feature benutzt werden soll. Dies wird gemacht, indem das HELPFILE "
  324.         "Tooltype im F1GP-Ed Programm Icon verändert wird.")
  325.     )
  326.  
  327.     (set #str-whichcatalogs
  328.         "Welche Cataloge sollen installiert werden? (Englisch ist schon eingebaut)"
  329.     )
  330.  
  331.     (set #str-help-whichcatalogs (cat
  332.         "Wenn Sie Workbench 2.1 oder höher haben, ist F1GP-Ed in der Lage "
  333.         "Locale Catalogs zu benutzen. Das bedeutet, daß die Texte in F1GP-Ed selbst, "
  334.         "in verschiedenen Sprachen sein können.\n\n"
  335.         "Ausgewählte Cataloge werden ins F1GP-Ed Verzeichnis installiert.")
  336.     )
  337.  
  338.     (set #str-confirmoptional
  339.         "Bitte wählen Sie, was Sie hiervon installieren möchten"
  340.     )
  341.  
  342.     (set #str-seasondata
  343.         "%s Saison Daten"
  344.     )
  345.  
  346.     (set #str-soundfiles
  347.         "Ersatz Sound-Samples (%s Verzeichnis)"
  348.     )
  349.  
  350.     (set #str-gfxfiles
  351.         "Ersatz Cockpit-Designs (%s Verzeichnis)"
  352.     )
  353.  
  354.     (set #str-extrafiles
  355.         "Verschiedenes F1GP Zeug (%s Verzeichnis)"
  356.     )
  357.  
  358.     (set #str-update
  359.         "Installiere neue Version der %s"
  360.     )
  361.  
  362.     (set #str-exe
  363.         "ausführbaren F1GP-Ed Datei"
  364.     )
  365.  
  366.     (set #str-iconfix
  367.         "Setze Icon Tools und Tooltypes"
  368.     )
  369.  
  370.     (set #str-floppyextras
  371.         "Kopiere extra Dateien, die für selbst-bootende Diskette benötigt werden"
  372.     )
  373.  
  374.     (set #str-theend (cat
  375.         "\nViel Spaß beim Benutzen von F1GP-Ed ;-)\n\n"
  376.         "Die neueste Version von F1GP-Ed gibt es immer auf der F1GP-Ed Web Page "
  377.         "- %s\n\n%s\n")
  378.     )
  379.     
  380.     (set #str-tmpstorage (cat
  381.         "Wählen Sie ein Verzeichnis, das als temporäres Verzeichnis benutzt "
  382.         "werden soll. Ein Verzeichnis namens \"%s\" wird dort angelegt und "
  383.         "nach der Installation wieder gelöscht. Die Vorgabe ist normalerweise "
  384.         "ausreichend.")
  385.     )
  386.  
  387.     (set #str-prepdisk
  388.         "Bereite Diskette vor"
  389.     )
  390.  
  391.     (set #str-bootfloppyend (cat
  392.         "F1GP-Ed Diskette angelegt. Sie sollten nun direkt von der Diskette "
  393.         "booten können, nachdem der Installer beendet ist.")
  394.     )
  395.  
  396.     (set #str-intdrive
  397.         "internes Laufwerk"
  398.     )
  399.  
  400.     (set #str-selectfloppydrive (cat
  401.         "Wählen Sie ein gültiges Diskettenlaufwerk - dieses Laufwerk wird "
  402.         "benutzt, um Ihre Leerdiskette zu initialisieren. Sofern Ihr internes "
  403.         "Laufwerk nicht kaputt ist, ist es wohl am besten, Sie bleiben bei "
  404.         "der Voreinstellung...")
  405.     )
  406. ))
  407.  
  408. ;****************************************************************************
  409. ; French strings
  410. ;
  411. (if (= @language "français") (
  412.     (set #str-installtype
  413.         "Choisissez le type d'installation:"
  414.     )
  415.  
  416.     (set #str-hd
  417.         "Installation sur disque dur"
  418.     )
  419.  
  420.     (set #str-floppy
  421.         "Installation sur disquette"
  422.     )
  423.  
  424.     (set #str-help-installtype (cat
  425.         "Il est préférable d'installer F1GP-Ed sur disque dur. Si vous n'en "
  426.         "possédez pas, sélectionnez alors installation sur disquette, ce "
  427.         "qui sera fait alors par cet installeur.")
  428.     )
  429.  
  430.     (set #str-hdconfirm (cat
  431.         "Assurez-vous d'avoir lancé votre ordinateur au départ du disque dur, "
  432.         "avant de continuer cette installation!\n\nVoulez-vous continuer?")
  433.     )
  434.  
  435.     (set #str-floppyconfirm (cat
  436.         "Pensez à avoir une disquette vide et formatée à votre disposition. "
  437.         "Référez-vous au manuel du Workbench si vous ne savez pas comment "
  438.         "formater une disquette.\n\n"
  439.         "Voulez-vous continuer?")
  440.     )
  441.  
  442.     (set #str-diskwarn (cat
  443.         "IMPORTANT: Si vous lancez cet installeur au départ d'une disquette, "
  444.         "s'il-vous plait, assurez-vous qu'elle est protégée contre l'écriture "
  445.         "avant de continuer.\n\n Soyez conscient que l'installation complète "
  446.         "ne peut tenir sur une simple disquette, il vaut donc mieux ne choisir "
  447.         "qu'une seule langue pour la documentation, et seulement le catalogue "
  448.         "locale utile.")
  449.     )
  450.  
  451.     (set #str-diskinsertnew
  452.         "Insérez, s'il-vous plait, une disquette vide formatée dans le lecteur DF%ld:"
  453.     )
  454.  
  455.     (set #str-diskremove
  456.         "Vous devriez retirer cette disquette maintenant et la renommer maintenent comme disquette %s."
  457.     )
  458.  
  459.     (set #str-diskrename1
  460.         "main F1GP-Ed"
  461.     )
  462.  
  463.     
  464.     (set #str-diskanydrive (cat
  465.         "A partir d'ici, vous pouvez insérer cette disquette dans un lecteur "
  466.         "lorsque cela est demandé (C'est-à-dire pas seulement dans le lecteur "
  467.         "interne).")
  468.     )
  469.  
  470.     (set #str-diskinsert
  471.         "Insérez, s'il-vous plait, la disquette %s dans un lecteur de votre choix"
  472.     )
  473.  
  474.     (set #str-copy
  475.         "Copie des fichiers vers %s"
  476.     )
  477.  
  478.     (set #str-tmpcopy
  479.         "Copie des fichiers vers un répertoire temporaire"
  480.     )
  481.  
  482.     (set #str-tmpclean
  483.         "Effacement du répertoire temporaire"
  484.     )
  485.  
  486.     (set #str-hdwhere (cat
  487.         "Sélectionnez l'endroit où F1GP-Ed devrait être installé (un tiroir appelé "
  488.         "\"F1GP-Ed\" sera créé)")
  489.     )
  490.  
  491.     (set #str-fileexists (cat
  492.         "Impossible de créer le tiroir \"F1GP-Ed\" - assurez-vous qu'il n'y a pas "
  493.         "de fichier appelé \"F1GP-Ed\" dans la destination que vous avez sélectionnéein.\n\n\n"
  494.         "Echec de l'installation!")
  495.     )
  496.  
  497.     (set #str-drawerexists (cat
  498.         "Le tiroir F1GP-Ed existe déja. Il sera renommé \"F1GP-Ed_OLD\" "
  499.         "si vous souhaitez conserver un des fichiers qui s'y trouve, autrement "
  500.         "tous les fichiers seront effacés/remplacés.")
  501.     )
  502.  
  503.     (set #str-replacedrawer
  504.         "Remplacer le tiroir"
  505.     )
  506.  
  507.     (set #str-renamedrawer
  508.         "Renommer le tiroir"
  509.     )
  510.  
  511.     (set #str-extract
  512.         "Décompactage des données - cela peut durer un peu..."
  513.     )
  514.  
  515.     (set #str-whichdocs
  516.         "Dans quelles langues doit être installée la documentation?"
  517.     )
  518.  
  519.     (set #str-helplanguage
  520.         "Quelle langue devrait être utilisée pour l'aide en ligne?"
  521.     )
  522.  
  523.     (set #str-help-helplanguage (cat
  524.         "Vous devriez sélectionnez votre langue préférée de la liste de manière "
  525.         "à ce que F1GP-Ed sache quelle version de la documentation utiliser "
  526.         "pour la caractéristique de l'aide en ligne.  Ceci est réalisé par la "
  527.         "modification du type d'outil HELPFILE (Fichier d'aide) de l'icone "
  528.         "du programme F1GP-Ed.")
  529.     )
  530.  
  531.     (set #str-whichcatalogs
  532.         "Quels catalogues souhaitez-vous installer? (L'anglais est déja incorporé)"
  533.     )
  534.  
  535.     (set #str-help-whichcatalogs (cat
  536.         "Si vous possédez un Workbench 2.1 ou supérieur, F1GP-Ed sera capable "
  537.         "d'utiliser les catalogues Locale. Cela signifie que les textes de F1GP-Ed "
  538.         "lui-même, peuvent être dans différentes langues.\n\n"
  539.         "Les catalogues sélectionnés seront installés dans le tiroir F1GP-Ed.")
  540.     )
  541.  
  542.     (set #str-confirmoptional
  543.         "Sélectionnez, s'il-vous plait, ce que vous souhaitez installer"
  544.     )
  545.  
  546.     (set #str-seasondata
  547.         "%s Données de cette saison"
  548.     )
  549.  
  550.     (set #str-soundfiles
  551.         "Echantillons de sons de remplacement (%s tiroir)"
  552.     )
  553.  
  554.     (set #str-gfxfiles
  555.         "Dessins de cockpit de remplacement (%s tiroir)"
  556.     )
  557.  
  558.     (set #str-extrafiles
  559.         "Diverses choses à propos de/pour F1GP (%s tiroir)"
  560.     )
  561.  
  562.     (set #str-update
  563.         "Installation de la nouvelle version de %s"
  564.     )
  565.  
  566.     (set #str-exe
  567.         "Données du programme exécutable F1GP-Ed"
  568.     )
  569.  
  570.     (set #str-iconfix
  571.         "Pose des icones outils et des types d'outil"
  572.     )
  573.  
  574.     (set #str-floppyextras
  575.         "Copie des fichiers extras nécessaires pour disquette autoboot"
  576.     )
  577.  
  578.     (set #str-theend (cat
  579.         "\nPrenez beaucoup de plaisir en utilisant F1GP-Ed ;-)\n\n"
  580.         "La dernière versiob de F1GP-Ed est disponible sur la page Web "
  581.         "- %s\n\n%s\n")
  582.     )
  583.     
  584.     (set #str-tmpstorage (cat
  585.         "Sélectionnez l'endroit utilisé pour conserver momentanément les données. "
  586.         "Un tiroir appelé \"%s\" y sera créé et sera ensuite effacé lorsque "
  587.         "l'installation sera terminée.  Le réglage par défaut est habituellement "
  588.         "suffisant.")
  589.     )
  590.  
  591.     (set #str-prepdisk
  592.         "Préparez votre disquette"
  593.     )
  594.  
  595.     (set #str-bootfloppyend (cat
  596.         "Disquette F1GP-Ed créée.  Maintenant vous devriez pouvoir Booter "
  597.         "directement au départ de cette disquette après que cet installeur "
  598.         "ait terminé son activité.")
  599.     )
  600.  
  601.     (set #str-intdrive
  602.         "lecteur de disquette interne"
  603.     )
  604. ))
  605.  
  606.  
  607. ;****************************************************************************
  608. ; Initializations
  609. ;
  610. (set #OSVersion (/ (getversion) 65536))
  611. (set #TextTool (if (< #OSVersion 39) "AmigaGuide" "Multiview"))
  612. (set #fromfloppy (exists "C/TestKS13"))
  613. (set #tmpdir "F1GP-Ed_tmp")
  614. (set #packed (exists "F1GP-Ed.lzx"))
  615. (set #floppyassign "F1GP-Ed_newfloppy")
  616. (set #numhelplanguages 3)
  617. (set #numcatalogs 12)
  618.  
  619. (if (exists "ENV:Language" (noreq))
  620.     (set #envlanguage (getenv "Language"))
  621.     (set #envlanguage @language)
  622. )
  623.  
  624. (set #n 0)
  625. (set #defcatalog 0)
  626. (while (< #n #numcatalogs)
  627.     (if (= #envlanguage (select #n "ÃeÓtina" "dansk" "deutsch" "español" "français" "greek" "italiano" "nederlands" "norsk" "polski" "suomi" "svenska"))
  628.         (set #defcatalog (shiftleft 1 #n))
  629.     )
  630.     (set #n (+ #n 1))
  631. )
  632.  
  633. (set #freemem (+ (database "total-mem")))
  634. (set #lowmem (< #freemem 1048576))
  635. (set #lzxopts (if #lowmem ("-bi16 -bo16") ("")))
  636.  
  637. ;****************************************************************************
  638. ; Procedures
  639. ;
  640. (procedure P_SetTextTool
  641.     (if (exists #TextFile)
  642.         (tooltype
  643.             (prompt #str-iconfix)
  644.             (setdefaulttool #TextTool)
  645.             (dest #TextFile)
  646.         )
  647.     )
  648. )
  649.  
  650. (procedure P_CleanTmpDir
  651.     (if (exists #tmpdir)
  652.         (
  653.             (working #str-tmpclean)
  654.             (run ("\"%s\" \"%s\" ALL QUIET" #delete (tackon #tmpdir "files/#?")) (safe))
  655.         )
  656.     )
  657. )
  658.  
  659. (procedure P_CleanTmpDirAll
  660.     (if (exists #tmpdir)
  661.         (
  662.             (P_CleanTmpDir)
  663.             (delete (tackon #tmpdir "F1GP-Ed.lzx") (safe))
  664.             (delete (tackon #tmpdir "UNLZX") (safe))
  665.         )
  666.     )
  667. )
  668.  
  669. (procedure P_AskForMainDisk
  670.     (if #tofloppy
  671.         (askdisk
  672.             (prompt (#str-diskinsert #str-diskrename1))
  673.             (help @askdisk-help)
  674.             (dest "F1GP-Ed")
  675.         )
  676.     )
  677. )
  678.  
  679. (procedure P_AskForInstallDisk
  680.     (if (AND #tofloppy #fromfloppy)
  681.         (askdisk
  682.             (prompt (#str-diskinsert "F1GP-Ed_Install"))
  683.             (help @askdisk-help)
  684.             (dest "F1GP-Ed_Install")
  685.         )
  686.     )
  687. )
  688.  
  689. (procedure P_Extract
  690.     (if #packed
  691.         (
  692.             (if #lowmem (P_AskForInstallDisk))
  693.             (working #str-extract)
  694.             (run ("\"%s\" %s -m -q x \"%s\" %s \"%s\"" #lzx #lzxopts (tackon #srcdir "F1GP-Ed.lzx") #extract (tackon #tmpdir "files/")) (safe))
  695.             (if #lowmem (P_AskForMainDisk))
  696.         )
  697.     )
  698. )
  699.  
  700. (procedure P_CleanUp
  701.     (if (exists #tmpdir)
  702.         (
  703.             (working #str-tmpclean)
  704.             (run ("\"%s\" \"%s\" ALL QUIET" #delete (tackon #tmpdir "#?")) (safe))
  705.             (delete #tmpdir (safe))
  706.         )
  707.     )
  708.     (makeassign #floppyassign (safe))
  709. )
  710.  
  711. ;****************************************************************************
  712. ; Main body of installer (the mess ;)
  713. ;
  714.  
  715. (welcome "")
  716.  
  717. ; ask questions and prepare to install
  718.  
  719. (set #tofloppy
  720.     (askchoice
  721.         (prompt #str-installtype)
  722.         (default 0)
  723.         (choices #str-hd #str-floppy)
  724.         (help (cat #str-help-installtype "\n\n" @askchoice-help))
  725.     )
  726. )
  727.  
  728. (if (NOT
  729.     (askbool
  730.         (prompt (if #tofloppy #str-floppyconfirm #str-hdconfirm))
  731.         (default 0)
  732.         (help "")
  733.     ))
  734.     (exit (quiet))
  735. )
  736.  
  737. (onerror (P_CleanUp))
  738.  
  739. (if (OR #packed #tofloppy)
  740.     (
  741.         (set #tmpstorage
  742.             (if (= 2 @user-level)
  743.                 (askdir
  744.                     (prompt (#str-tmpstorage #tmpdir))
  745.                     (help @askdir-help)
  746.                     (disk)
  747.                     (default "RAM:")
  748.                 )
  749.                 "RAM:"
  750.             )
  751.         )
  752.         (set #tmpdir (tackon #tmpstorage #tmpdir))
  753.     )
  754. )
  755.  
  756. (if #tofloppy
  757.     (        
  758.         (copyfiles
  759.             (prompt #str-tmpcopy)
  760.             (help @copyfiles-help)
  761.             (source "C:Delete")
  762.             (dest #tmpdir)
  763.             (safe)
  764.         )
  765.         (set #delete (tackon #tmpdir "Delete"))
  766.         (if #fromfloppy
  767.             (copyfiles
  768.                 (prompt #str-tmpcopy)
  769.                 (help @copyfiles-help)
  770.                 (source (if (< #OSVersion 36) "C:Install13" "C:Install"))
  771.                 (dest #tmpdir)
  772.                 (newname "Install")
  773.             )
  774.         )
  775.         (if (AND #fromfloppy (NOT @installer-version))
  776.             (copyfiles
  777.                 (prompt #str-tmpcopy)
  778.                 (help @copyfiles-help)
  779.                 (source "C:Relabel")
  780.                 (dest #tmpdir)
  781.                 (safe)
  782.             )
  783.         )
  784.         (message #str-diskwarn)
  785.         (until #valid
  786.             (set #drive
  787.                 (askchoice
  788.                     (prompt #str-selectfloppydrive)
  789.                     (help @askchoice-help)
  790.                     (choices ("DF0: (%s)" #str-intdrive) "DF1:" "DF2:" "DF3:")
  791.                     (default 0)
  792.                 )
  793.             )
  794.             (set #valid (exists ("DF%ld:" #drive) (noreq)))
  795.         )
  796.         (message (#str-diskinsertnew #drive))
  797.         (working #str-prepdisk)
  798.         (set #oldname (getassign ("DF%ld" #drive) "d"))
  799.         ; old versions of installer didn't recoginize disk param!
  800.         (if @installer-version
  801.             (rename #oldname "F1GP-Ed" (disk) (safe))
  802.             (if #fromfloppy
  803.                 (
  804.                     (run ("\"%s\" \"%s\" F1GP-Ed" (tackon #tmpdir "Relabel") #oldname) (safe))
  805.                     (delete (tackon #tmpdir "Relabel") (safe))
  806.                 )
  807.                 (run ("C:Relabel \"%s\" F1GP-Ed" #oldname) (safe))
  808.             )
  809.         )
  810.         (if #fromfloppy
  811.             (
  812.                 (run ("\"%s\" DF%ld:" (tackon #tmpdir "Install") #drive))
  813.                 (delete (tackon #tmpdir "Install"))
  814.             )
  815.             (if (exists "C:Install")
  816.                 (run ("C:Install DF%ld:" #drive))
  817.             )
  818.         )
  819.         (makeassign #floppyassign ("DF%ld:" #drive) (safe))
  820.         (run ("\"%s\" %s:#? ALL QUIET" #delete #floppyassign))
  821.         (message (cat (#str-diskremove #str-diskrename1) "  " #str-diskanydrive))
  822.         (set #destdir ("%s:" #floppyassign))
  823.         (set @default-dest #destdir)
  824.     )
  825. ; else
  826.     (
  827.         (set #delete "C:Delete")
  828.         (set #destdir
  829.             (askdir
  830.                 (prompt #str-hdwhere)
  831.                 (help @askdir-help)
  832.                 (default @default-dest)
  833.             )
  834.         )
  835.         (set @default-dest (tackon #destdir "F1GP-Ed"))
  836.         (if (= 1 (exists @default-dest))
  837.             (
  838.                 (message #str-fileexists)
  839.                 (exit (quiet))
  840.             )
  841.         )
  842.         (if (exists @default-dest)
  843.             (if     (askbool
  844.                     (prompt #str-drawerexists)
  845.                     (default 0)
  846.                     (help "")
  847.                     (choices #str-renamedrawer #str-replacedrawer)
  848.                 )
  849.  
  850.                 (
  851.                     (rename @default-dest (cat @default-dest "_OLD"))
  852.                     (rename (cat @default-dest ".info") (cat @default-dest "_OLD.info"))
  853.                 )
  854.             )
  855.         )
  856.         (if (NOT (exists @default-dest))
  857.             (makedir @default-dest (infos))
  858.         )
  859.     )
  860. )
  861.  
  862. (if #fromfloppy
  863.     (
  864.         (set #unpackdir (tackon #tmpdir "files"))
  865.         (set #srcdir (if (AND #tofloppy (NOT #lowmem)) #tmpdir ""))
  866.         (set #diskdir (if #tofloppy #unpackdir ""))
  867.     )
  868.     (
  869.         (set #srcdir "/")
  870.         (set #unpackdir #srcdir)
  871.         (set #diskdir #srcdir)
  872.         (set #frenchdocexists (exists (tackon #srcdir "Docs/F1GP-Ed_français.guide")))
  873.     )
  874. )
  875.  
  876. (set #n 0)
  877. (set #defhelp 0)
  878. (if (= #envlanguage "deutsch")
  879.     (set #defhelp 1)
  880. )
  881. (if (AND (= #envlanguage "français") #frenchdocexists)
  882.     (set #defhelp 2)
  883. )
  884.  
  885. (set #whichdocs
  886.     (askoptions
  887.         (prompt #str-whichdocs)
  888.         (help @askoptions-help)
  889.         (if #frenchdocexists (choices "English" "Deutsch" "Français") (choices "English" "Deutsch"))
  890.         (default (shiftleft 1 #defhelp))
  891.     )
  892. )
  893.  
  894. (set #n 0)
  895. (set #count 0)
  896. (set #single 0)
  897. (while (< #n #numhelplanguages)
  898.     (if (IN #whichdocs #n)
  899.         (
  900.             (set #count (+ #count 1))
  901.             (set #single #n)
  902.         )
  903.     )
  904.     (set #n (+ #n 1))
  905. )
  906.  
  907. (if (> #count 1)
  908.     (set #help-language
  909.         (askchoice
  910.             (prompt #str-helplanguage)
  911.             (help (cat #str-help-helplanguage "\n\n" @askchoice-help))
  912.             (if #frenchdocexists (choices "English" "Deutsch" "Français") (choices "English" "Deutsch"))
  913.             (default #defhelp)
  914.         )
  915.     )
  916. ;else
  917.     (set #help-language #single)
  918. )
  919.  
  920. (set #helpfile
  921.     ("Docs/F1GP-Ed_%s.guide" (select #help-language "english" "deutsch" "français"))
  922. )
  923.  
  924. (if (>= #OSVersion 36)
  925.     (set #helpfile (cat "PROGDIR:" #helpfile))
  926. )
  927.  
  928. (if (>= #OSVersion 36)
  929.     (set #whichcatalogs
  930.         (askoptions
  931.             (prompt #str-whichcatalogs)
  932.             (help (cat #str-help-whichcatalogs "\n\n" @askoptions-help))
  933.             (choices "ÃeÓtina" "dansk" "deutsch" "español" "français" "greek"
  934.                  "italiano" "nederlands" "norsk" "polski" "suomi" "svenska")
  935.             (default #defcatalog)
  936.         )
  937.     )
  938.     (set #whichcatalogs 0)
  939. )
  940.  
  941. (set #opts
  942.     (askoptions
  943.         (prompt #str-confirmoptional)
  944.         (help @askoptions-help)
  945.         (choices (#str-seasondata "1998")
  946.              (#str-seasondata "1997-1994")
  947.              (#str-soundfiles "Sound")
  948.              (#str-gfxfiles "Graphics")
  949.              (#str-extrafiles "Extras")
  950.         )
  951.         (default 31)
  952.     )
  953. )
  954.  
  955. (P_AskForInstallDisk)
  956.  
  957. (set #lzx "C/UNLZX")
  958.  
  959. (if (AND (AND #fromfloppy #tofloppy) (NOT #lowmem))
  960.     (
  961.         (copyfiles
  962.             (prompt #str-tmpcopy)
  963.             (help @copyfiles-help)
  964.             (source "F1GP-Ed.lzx")
  965.             (dest #tmpdir)
  966.             (safe)
  967.         )
  968.         (copyfiles
  969.             (prompt #str-tmpcopy)
  970.             (help @copyfiles-help)
  971.             (source "C/UNLZX")
  972.             (dest #tmpdir)
  973.             (safe)
  974.         )
  975.         (set #lzx (tackon #tmpdir "UNLZX"))
  976.     )
  977. )
  978.  
  979. (complete 0)
  980.  
  981. ; install libs
  982.  
  983. (if #tofloppy
  984.     (set #libdir ("%s:Libs" #floppyassign))
  985.     (set #libdir "LIBS:")
  986. )
  987.  
  988. (if (< #OSVersion 36)
  989.     (set #extract "Libs/f1gp.l#? Libs/gad#? Libs/reqt#?")
  990.     (set #extract "Libs/f1gp.library Libs/reqtools.library")
  991. )
  992. (P_Extract)
  993.  
  994. (P_AskForMainDisk)
  995.  
  996. (copylib
  997.     (prompt (#str-update "f1gp.library"))
  998.     (source (tackon #unpackdir "Libs/f1gp.library"))
  999.     (dest #libdir)
  1000.     (help @copylib-help)
  1001.     (confirm)
  1002. )
  1003.  
  1004. (complete 3)
  1005.  
  1006. (if (< #OSVersion 36) 
  1007.     (    (set #ReqToolsSource "Libs/reqtools.library")
  1008.         (copylib
  1009.             (prompt (#str-update "gadtools13.library"))
  1010.             (source (tackon #unpackdir "Libs/gadtools13.library"))
  1011.             (dest #libdir)
  1012.             (help @copylib-help)
  1013.             (confirm)
  1014.         )
  1015.     )
  1016.     (    (set #ReqToolsSource "Libs/reqtools.library")
  1017.         (set #asllib (tackon #libdir "asl.library"))
  1018.         (if (exists #asllib)
  1019.             (    (set #aslver (/ (getversion #asllib) 65536))
  1020.                 (if (>= #aslver 38)
  1021.                     (set #ReqToolsSource "")
  1022.                 )
  1023.             )
  1024.         )
  1025.     )
  1026. )
  1027.  
  1028. (if #ReqToolsSource
  1029.     (copylib
  1030.         (prompt (#str-update "reqtools.library"))
  1031.         (source (tackon #unpackdir #ReqToolsSource))
  1032.         (dest #libdir)
  1033.         (help @copylib-help)
  1034.         (newname "reqtools.library")
  1035.         (confirm)
  1036.     )
  1037. )
  1038.  
  1039. (P_CleanTmpDir)
  1040.  
  1041. (complete 10)
  1042.  
  1043. ; install F1GP-Ed drawer
  1044.  
  1045. (P_AskForMainDisk)
  1046.  
  1047. (set #extract "F1GP-Ed F1GP-Ed.info Docs.info")
  1048. (P_Extract)
  1049.  
  1050. (copylib
  1051.     (prompt (#str-update #str-exe))
  1052.     (source (tackon #unpackdir "F1GP-Ed"))
  1053.     (dest @default-dest)
  1054.     (help @copylib-help)
  1055.     (infos)
  1056.     (confirm)
  1057. )
  1058.  
  1059. (complete 25)
  1060.  
  1061. (copyfiles
  1062.     (source (tackon #unpackdir "Docs.info"))
  1063.     (dest @default-dest)
  1064.     (help @copyfiles-help)
  1065. )
  1066.  
  1067. (P_CleanTmpDir)
  1068.  
  1069. (set #n 0)
  1070. (while (< #n #numhelplanguages)
  1071.     (if (IN #whichdocs #n)
  1072.         (
  1073.             (set #docfilename ("Docs/F1GP-Ed_%s.guide" (select #n "english" "deutsch" "français")))
  1074.             (set #extract (cat #docfilename "#?"))
  1075.             (P_Extract)
  1076.             (if (exists (tackon #unpackdir #docfilename))
  1077.                         (copyfiles
  1078.                     (source (tackon #unpackdir #docfilename))
  1079.                     (dest (tackon @default-dest "Docs"))
  1080.                     (help @copyfiles-help)
  1081.                     (infos)
  1082.                 )
  1083.             )
  1084.             (P_CleanTmpDir)
  1085.         )
  1086.     )
  1087.     (set #n (+ #n 1))
  1088. )
  1089.  
  1090. (complete 40)
  1091.  
  1092. (set #extract "History.txt#? Reg_Form#?")
  1093. (P_Extract)
  1094.  
  1095. (copyfiles
  1096.     (prompt (#str-copy @default-dest))
  1097.     (source #unpackdir)
  1098.     (choices "History.txt" "Reg_Form")
  1099.     (dest @default-dest)
  1100.     (help @copyfiles-help)
  1101.     (infos)
  1102.     (confirm)
  1103. )
  1104. (P_CleanTmpDir)
  1105.  
  1106. (complete 50)
  1107.  
  1108. ; copy optional files
  1109.  
  1110. (if (IN #opts 0)
  1111.     (
  1112.         (set #extract "1998.f1gp#?")
  1113.         (P_Extract)
  1114.         (set #filename "1998.f1gp")
  1115.         (copyfiles
  1116.             (source (tackon #unpackdir #filename))
  1117.             (dest @default-dest)
  1118.             (help @copyfiles-help)
  1119.             (infos)
  1120.         )
  1121.         (set #filename (cat (tackon #unpackdir #filename) ".events"))
  1122.         (if (exists #filename)
  1123.             (copyfiles
  1124.                 (source #filename)
  1125.                 (dest @default-dest)
  1126.                 (help @copyfiles-help)
  1127.             )
  1128.         )
  1129.     )
  1130. )
  1131.  
  1132. (P_CleanTmpDir)
  1133.  
  1134. (complete 55)
  1135.  
  1136. ; copy optional dirs
  1137.  
  1138. (set #n 1)
  1139. (while (< #n 5)
  1140.     (if (IN #opts #n)
  1141.         (
  1142.             (set #filename (select (- #n 1) "Datafiles" "Sound" "Graphics" "Extras"))
  1143.             (set #extract (cat #filename "/#? " #filename ".info"))
  1144.             (P_Extract)
  1145.             (copyfiles
  1146.                 (source (tackon #unpackdir (cat #filename ".info")))
  1147.                 (dest @default-dest)
  1148.                 (help @copyfiles-help)
  1149.             )
  1150.             (copyfiles
  1151.                 (source (tackon #unpackdir #filename))
  1152.                 (dest (tackon @default-dest #filename))
  1153.                 (help @copyfiles-help)
  1154.                 (all)
  1155.                 (infos)
  1156.             )
  1157.             (P_CleanTmpDir)
  1158.         )
  1159.     )        
  1160.     (set #n (+ #n 1))
  1161. )
  1162.  
  1163. (if (IN #opts 5)
  1164.     (tooltype
  1165.         (prompt #str-iconfix)
  1166.         (setdefaulttool "Installer")
  1167.         (dest (tackon @default-dest "Extras/Install_F1GP"))
  1168.     )
  1169. )
  1170.  
  1171. (complete 75)
  1172.  
  1173. (if (>= #OSVersion 36)
  1174.     (
  1175.         (set #newdir (tackon @default-dest "Catalogs"))
  1176.         (if (NOT (exists #newdir))
  1177.             (makedir #newdir)
  1178.         )
  1179.         (set #extract "Catalogs/#? Catalogs.info")
  1180.         (P_Extract)
  1181.  
  1182.         (copyfiles
  1183.             (source (tackon #unpackdir "Catalogs.info"))
  1184.             (dest @default-dest)
  1185.             (help @copyfiles-help)
  1186.         )
  1187.         (set #dest (tackon @default-dest "Catalogs"))
  1188.         (copyfiles
  1189.             (prompt (#str-copy #dest))
  1190.             (source (tackon #unpackdir "Catalogs/NewCatalog.ct"))
  1191.             (dest #dest)
  1192.             (help @copyfiles-help)
  1193.             (infos)
  1194.             (confirm)
  1195.         )
  1196.     )
  1197. )
  1198.  
  1199. (complete 77)
  1200.  
  1201. (set #n 0)
  1202. (while (< #n #numcatalogs)
  1203.     (if (IN #whichcatalogs #n)
  1204.         (
  1205.             (set #filename ("Catalogs/%s/F1GP-Ed.catalog" (select #n "ÃeÓtina" "dansk" "deutsch" "español" "français" "greek" "italiano" "nederlands" "norsk" "polski" "suomi" "svenska")))
  1206.             (copyfiles
  1207.                 (source (tackon #unpackdir #filename))
  1208.                 (dest (tackon @default-dest (pathonly #filename)))
  1209.                 (help @copyfiles-help)
  1210.             )
  1211.         )
  1212.     )
  1213.     (set #n (+ #n 1))
  1214. )
  1215.  
  1216. (P_CleanTmpDir)
  1217.  
  1218. (complete 82)
  1219.  
  1220. (if (AND #fromfloppy #tofloppy)
  1221.     (
  1222.         (P_AskForInstallDisk)
  1223.         (if (exists "F1GP-Ed.key")
  1224.             (copyfiles
  1225.                 (prompt #str-tmpcopy)
  1226.                 (help @copyfiles-help)
  1227.                 (source "F1GP-Ed.key")
  1228.                 (dest #unpackdir)
  1229.             )
  1230.         )
  1231.         (if (exists "Registered.guide")
  1232.             (copyfiles
  1233.                 (prompt #str-tmpcopy)
  1234.                 (help @copyfiles-help)
  1235.                 (source "Registered.guide")
  1236.                 (dest #unpackdir)
  1237.                 (infos)
  1238.             )
  1239.         )
  1240.         (P_AskForMainDisk)
  1241.     )
  1242. )
  1243.  
  1244. (if (exists (tackon #diskdir "F1GP-Ed.key"))
  1245.     (copyfiles
  1246.         (prompt (#str-copy @default-dest))
  1247.         (source (tackon #diskdir "F1GP-Ed.key"))
  1248.         (dest @default-dest)
  1249.         (help @copyfiles-help)
  1250.         (confirm)
  1251.     )
  1252. )
  1253. (set #dest (tackon @default-dest "Docs"))
  1254. (if (exists (tackon #diskdir "Registered.guide"))
  1255.     (copyfiles
  1256.         (prompt (#str-copy #dest))
  1257.         (source (tackon #diskdir "Registered.guide"))
  1258.         (dest #dest)
  1259.         (help @copyfiles-help)
  1260.         (infos)
  1261.         (confirm)
  1262.     )
  1263. )
  1264.  
  1265. (if (AND #fromfloppy #tofloppy)
  1266.     (P_CleanTmpDir)
  1267. )
  1268.  
  1269. (complete 87)
  1270.  
  1271. (working #str-iconfix)
  1272.  
  1273. (tooltype
  1274.     (prompt #str-iconfix)
  1275.     (settooltype "HELPFILE" #helpfile)
  1276.     (dest (tackon @default-dest "F1GP-Ed"))
  1277. )
  1278.  
  1279. (if (AND #tofloppy #fromfloppy)
  1280.     (set #TextTool "F1GP-Ed:C/AmigaGuide")
  1281. )
  1282.  
  1283. (set #n 0)
  1284. (while    (set #TextFile
  1285.         (select #n
  1286.             "Docs/F1GP-Ed_english.guide"
  1287.             "Docs/F1GP-Ed_deutsch.guide"
  1288.             "Docs/F1GP-Ed_français.guide"
  1289.             "History.txt"
  1290.             "Reg_Form"
  1291.             "Docs/Registered.guide"
  1292.             "Extras/Other_F1GP_Stuff.guide"
  1293.                         "Graphics/ReadMe"
  1294.                         "Sound/ReadMe"
  1295.             ""
  1296.         )
  1297.     )
  1298.  
  1299.     (set #TextFile (tackon @default-dest #TextFile))
  1300.     (P_SetTextTool)
  1301.     (set #n (+ #n 1))
  1302. )
  1303.  
  1304. (P_CleanTmpDirAll)
  1305.  
  1306. (complete 90)
  1307.  
  1308. ; install files for autoboot disk
  1309.  
  1310. (if (AND #tofloppy #fromfloppy)
  1311.     (
  1312.         (P_AskForInstallDisk)
  1313.         (copyfiles
  1314.             (prompt #str-tmpcopy)
  1315.             (help @copyfiles-help)
  1316.             (source "C")
  1317.             (dest (tackon #unpackdir "C"))
  1318.             (choices "AmigaGuide" "GOWB" "PPLoadSeg" "Type")
  1319.         )
  1320.         (copyfiles
  1321.             (prompt #str-tmpcopy)
  1322.             (help @copyfiles-help)
  1323.             (source "Libs")
  1324.             (dest (tackon #unpackdir "Libs"))
  1325.             (choices "amigaguide.library.pp" "powerpacker.library" "iffparse.library.pp")
  1326.         )
  1327.         (copyfiles
  1328.             (prompt #str-tmpcopy)
  1329.             (help @copyfiles-help)
  1330.             (source "S/disk.startup-sequence")
  1331.             (dest (tackon #unpackdir "S"))
  1332.             (newname "Startup-Sequence")
  1333.         )
  1334.         (copyfiles
  1335.             (prompt #str-tmpcopy)
  1336.             (help @copyfiles-help)
  1337.             (source "S/disk.text")
  1338.             (dest (tackon #unpackdir "S"))
  1339.             (newname "text")
  1340.         )
  1341.         (copyfiles
  1342.             (prompt #str-tmpcopy)
  1343.             (help @copyfiles-help)
  1344.             (source "system-configuration")
  1345.             (dest #unpackdir)
  1346.         )
  1347.         (copyfiles
  1348.             (prompt #str-tmpcopy)
  1349.             (help @copyfiles-help)
  1350.             (source "S/Disk.info")
  1351.             (dest #unpackdir)
  1352.         )
  1353.             
  1354.         (if (< #OSVersion 36)
  1355.             (
  1356.                 (copyfiles
  1357.                     (prompt #str-tmpcopy)
  1358.                     (help @copyfiles-help)
  1359.                     (source "C")
  1360.                     (dest (tackon #unpackdir "C"))
  1361.                     (choices "Echo" "Else" "EndIf"
  1362.                          "If" "Run")
  1363.                 )
  1364.                 (copyfiles
  1365.                     (prompt #str-tmpcopy)
  1366.                     (help @copyfiles-help)
  1367.                     (source "C/Assign13")
  1368.                     (dest (tackon #unpackdir "C"))
  1369.                     (newname "Assign")
  1370.                 )
  1371.                 (copyfiles
  1372.                     (prompt #str-tmpcopy)
  1373.                     (help @copyfiles-help)
  1374.                     (source "C/SetPatch13")
  1375.                     (dest (tackon #unpackdir "C"))
  1376.                     (newname "SetPatch")
  1377.                 )
  1378.                 (copyfiles
  1379.                     (prompt #str-tmpcopy)
  1380.                     (help @copyfiles-help)
  1381.                     (source "Libs")
  1382.                     (dest (tackon #unpackdir "Libs"))
  1383.                     (choices "icon.library.pp")
  1384.                 )
  1385.                 (copyfiles
  1386.                     (prompt #str-tmpcopy)
  1387.                     (help @copyfiles-help)
  1388.                     (source "L")
  1389.                     (dest (tackon #unpackdir "L"))
  1390.                     (all)
  1391.                 )
  1392.             )
  1393.             (
  1394.                 (copyfiles
  1395.                     (prompt #str-tmpcopy)
  1396.                     (help @copyfiles-help)
  1397.                     (source "C")
  1398.                     (dest (tackon #unpackdir "C"))
  1399.                     (choices "Assign" "SetPatch")
  1400.                 )
  1401.             )
  1402.         )
  1403.         (P_AskForMainDisk)
  1404.         (copyfiles
  1405.             (prompt #str-floppyextras)
  1406.             (help @copyfiles-help)
  1407.             (source #unpackdir)
  1408.             (dest @default-dest)
  1409.             (all)
  1410.         )
  1411.         (complete 99)
  1412.         (P_AskForInstallDisk)
  1413.         (P_CleanTmpDir)
  1414.     )
  1415. )
  1416.  
  1417. (P_CleanUp)
  1418.  
  1419. ; END
  1420.  
  1421. (complete 100)
  1422.  
  1423. (exit (cat (if (AND #fromfloppy #tofloppy) #str-bootfloppyend "")
  1424.     (#str-theend
  1425.     "http://www.nanunanu.org/~oliver/F1GP-Ed/"
  1426.     "Oliver Roberts (oliver.roberts@iname.com)"))
  1427. )
  1428.